10 POKE53280,.:POKE53281,.:PRINTCHR$(147)
15 LETA=(null):FORB=0TO9*ASTEP2*A/20:PRINT"*  "
20 LETC=10*(SIN(B)+1.5):LETD=INT(C+.9)
25 :POKE646,INT(RND(1)*15)+1:PRINTTAB(D);"   ENDE":PRINTTAB(37)"[145][145][145]  *":NEXTB
30 POKE56325,0:
35 PRINT"[147]  *********                **           ";
40 PRINT"   **    **                **           ";
45 PRINT"   **                      **           ";
50 PRINT"   **                      **           ";
55 PRINT"   *****    *** ****  *******  *******  ";
60 PRINT"   **        ***  **  **   **  **   **  ";
65 PRINT"   **        **   **  **   **  *******  ";
70 PRINT"   **    **  **   **  **   **  **       ";
75 PRINT"  *********  **   **  ******** *******  ";
80 POKE56325,58:TI$="000003":WAIT161,1
85 PRINT"[147][151]";:PRINT"";
90 READA$:IFA$="0"THEN110
95 PRINTTAB((15 -LEN(A$))/2)A$:GOTO90
100 DATA GEMACHT VON,L U K I A N,===========
105 DATA IM APRIL 95,0
110 POKE56325,1:FORI=0TO150:NEXT     :PRINT"[155]  "
115 POKE56325,58:TI$="000004":WAIT161,1:SYS58253